home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan / Opus 5 - Magellan.iso / Extras / DLGoodies / tolower.dopus5 < prev    next >
Text File  |  1996-08-29  |  881b  |  48 lines
  1. /*
  2.  *  Convert all selected file and directory entries to lowercase.
  3.  *  Usefull for ISO 9660 CD Roms.
  4.  *
  5.  *  V1.0 (29.8.96) by David Lübbren.
  6.  *
  7.  *  Call:  Arexx  DOpus5:ARexx/tolower.dopus5 {Qp}
  8.  *
  9.  *  TODO:
  10.  *    Directory recursion.
  11.  */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. PARSE ARG dopusport
  16. IF dopusport ~= "" THEN ADDRESS VALUE dopusport
  17. ELSE DO
  18.   SAY "No DOpus running !"
  19.   EXIT
  20. END
  21.  
  22.  
  23. lister query source
  24. IF rc = 0 THEN DO
  25.   PARSE VAR result handle .
  26.   lister query handle path
  27.   IF rc = 0 THEN DO
  28.     SourcePath = STRIP(result, 'B', '"')
  29.     lister query handle selentries stem Entry.
  30.   END
  31.   ELSE DO
  32.     Beep
  33.     EXIT 5
  34.   END
  35. END
  36. ELSE do
  37.   Beep
  38.   EXIT 5
  39. END
  40.  
  41.  
  42. DO i=0 TO Entry.count-1
  43.   lname = TRANSLATE(Entry.i, XRANGE('a', 'z'), XRANGE('A', 'Z'))
  44.   ADDRESS COMMAND 'Rename >NIL: "'SourcePath || Entry.i'" "'SourcePath || lname'" QUIET'
  45. END
  46.   
  47. lister read handle '"'SourcePath'"' force  
  48.